Top 10k strings from Championship Golf (1988)(D&H Games).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
3 w(n)=w(n)+ 3 c(f(n))=c(f(n))+ 3 XGGGGGGGGGG 3 "20")-o(a, 2 s(n)=s(n)- 2 o(a,b)=o(a,b)+ 2 n(a,x)=n(a,x)- 2 8GGGGGGGGGG000000000000 2 880000088GGGGGGGGGG 2 880000008GGGGGGGGGG 2 "GOLF.DAT": 2 "6";a$(ac, 2 "6";" ";n; 2 "5");"`";w( 2 "23");"`";a( 2 "23");"`"; 2 "2";t$(re)( 2 "2",x)=t(d( 2 "19")-o(a, 2 "10"))*(j(n)> 2 "1")=f(rb): 2 "0";" ";a$(ac, 1 zo=(zo*(av+ 1 zc=zc*(av+ 1 za=za+rb*ra: 1 z2=k(f(n)): 1 z2;" PER WEEK": 1 z1=zn-zo-z2-zd-zc-zl*(s( 1 z1=(x> b)*n( 1 z$=s$(z4,z3): 1 z$=" A NIGHT": 1 y$=j$(z2): 1 y$=" MILES FROM COURSE": 1 w(z)=w(z)+ra: 1 w(n)=f(n): 1 w(n)=e(n)-e( 1 w(a)=w(a)- 1 v$(f(n))(a 1 u$(be);"HAS WON `10000 FOR A HOLE IN ONE": 1 t$(w(n))=p$(n- 1 t$(rb)=z$: 1 t$(n)=u$(n): 1 rh=(be=f(re)): 1 re=e(n)-(ap*ax): 1 ra=ra-(rd< 1 ra=ra+(w(24 1 ra=ra+(n(b,c)-d( 1 ra=ra+(j(n)< j( 1 ra=ra+(f(n)= 1 ra=ra+(aw< 1 ra=e(rf)-ax*ap: 1 ra=e(rc)-e(re): 1 p(aw)=p(aw)- 1 p$(n)=t$(n): 1 n(rb,rc)=n(rb,rc)+ 1 m$="AEIOU": 1 k(f(rb))< z2 1 k(f(n))=k(f(n))+z1: 1 k(be)=k(be)+ 1 j(w(n))=w(n- 1 j(n)=rc+c(n): 1 j(f(n))> j(f(z)) 1 h$="BCDFGHJKLMNPRSTVW": 1 f(n)=f(z): 1 e(z)=e(z)+ 1 e(n)=e(n)+rb: 1 c(f(n))=c(f(n))- 1 an=an+rb*(n=re): 1 am=am+rb*(n=rd): 1 XGGGGGGGGGG888888888888 1 WENTWORTH GLENEAGLES STEVENAGE MOORTOWN WOBURN HAGGS CASTLE FULFORD SUNNINGDALE THE BELFRY BINGLEY ROYAL LYTHAM WINDSOR 1 SUN CITY CHALLENGE BOPHUTSWANA CAR CARE PLAN INTERNENGLAND PGA CHAMPIONSHIP ENGLAND BRITISH MASTERS ENGLAND MONTE CARLO OPEN MONACO BRITISH OPEN ENGLAND EUROPEAN OPEN EUROPE SANYO SPANISH OPEN SPAIN LANCOME TROPHY FRANCE THE US MASTERS USA BOB HOPE CLASSIC USA US OPEN USA NEC WORLD SERIES USA WALT DISNEY CLASSIC USA SEIKO CHAMPIONSHIP USA JERSEY OPEN JERSEY CARROLLS IRISH OPEN IRELAND B&H INTERNATIONAL ENGLAND AUSTRALIAN MASTERS AUSTRALIA ITALIAN OPEN ITALY 1 PRIZE MONEY EXPENSES TOURNAMENT 1 PIC 1 GOLF9 1 GOLF.BAS 7 1 GGGGGGGGGGGGGGG 1 FOR b= VAL "0" TO VAL "2": PLOT VAL "0", VAL "16"*b+ VAL "44": DRAW VAL "168", VAL "0": NEXT b: PLOT VAL "76", VAL "92": DRAW VAL "92", VAL "0": FOR b= VAL "0" TO VAL "2": PLOT VAL "76"+b* VAL "32", VAL "92": DRAW VAL "0",- VAL "48": NEXT b 1 F$="000000000000000": 1 DUNLOP BOSS SLAZENGER D&H GAMES NIKE HI-TEC VOLVO BELLS LE COQ GUCCI 1 DENNS RY EY ON WAYLE BY INSLEYSONTONS ES MANBLENEYSEYTERIS ER ENSDONINGGANLIN 1 CODE 1 BBBBBBBBBBBBB8888GGGGGGGGGGGGGGGBBBBBBBBBBBBB8888GGGGGGGGGGGGGGGBBBBBBBBBBB 1 BBBBBBBBBBBBB 1 <ffc`~<c<c~ 1 <f<c|~<c<c~ 1 ;"STOP TAPE": 1 ;"OUT OF BOUNDS": 1 ;"DO YOU WANT A PRINTER OPTION Y/N" 1 921110278211003572113004920144468202001382212536921110359222103692210027120564251115666322541733121662341152064321064312110765231116653511160663710435225305274563043165641626577614312256152544530636426502244075123641112233448877665512348765451374374584363717357283438645275463312765341224 1 8GGGGGGGGGG888888888888 1 8GGGGGGGGGG000000ppppp8 1 8GGGGGGGGGG000000000008 1 888H88888GGGGGGGGGG 1 888888888GGGGGGGGGG 1 888880088GGGGGGGGGG 1 880880088GGGGGGGGGG 1 800800088GGGGGGGGGG 1 800000088GGGGGGGGGG 1 315041573455462945274723363714485832285213194341213027145141205127121232391928501253112039262748202622125220115943283620474313144626545335195522155347184238522151255725595528154313181226202447221732471933473353503757533954173828185755433549253033113135331249351527514629321229325757424447323713295316492628234529394440322631442852501648125621412636414319275743582625395530113755253319135425531742442357403011412815472823125957493924504616115825295454453148583643512839554332395928372259172428181221483433125625131649505326121127555553273111582156154136214124325954481217185141262747144258372939185844452534354428161734394036424537363232524234355328295628323648501114562421523830334822564022181835595137344645132345331133 1 11473222616855755861723268573172545686336546344853461625727628617881888763324687276761464168122186236117448683245765287522477821454732185478376468752574726753444846225145855888813167837228884565686716747252174623841744852254832115628352432218188518581615465371673785684826435424458825756246563417464736764616728774626221148835266628278875388463312542 1 ,x)=t(w(18 1 ,,"YOUR COACH HAS RESIGNED" 1 ,,"YOUR CADDY HAS RESIGNED" 1 ,, "BALANCE"; 1 );"YOUR OFFER": 1 )+n,ra;" ";: 1 )*(n> w(22 1 (zp+zp*w(ra)): 1 (v$(f(n))(a 1 "PRIZE MONEY SOLD"; 1 "PLAYER'S NUMBER? (0 EXIT) ";ra: 1 "PLAY TOURNAMENT","NEXT TOURNAMENT","PRACTICE ","FIXTURES ","CHANGE NAMES ","BANK ","SPONSORS ","LEVEL ","TROPHY ROOM ","PRIZE MONEY ","WORLD RANKING ","SAVE GAME " 1 "OBTAIN A MORTGAGE FOR `";z1: 1 "OBTAIN A LOAN FOR `";z1: 1 "NUMBER TO CHANGE";ra: 1 "NEW NAME (MAX 12)"; 1 "MORTGAGE REPAYMENTS"; 1 "LOAN REPAYMENTS"; 1 "LIVING COSTS"; 1 "HOW MUCH?";zp: 1 "HOW MUCH (MIN `40)";z1: 1 "HOW MANY HOURS? ";rf: 1 "HOLE IN ONE"; 1 "GOLF.BAS": 1 "DO YOU ACCEPT Y/N?"; 1 "COACH'S WAGE"; 1 "CADDY'S WAGE"; 1 "BOOKIES RETURNS"; 1 "BET STAKES"; 1 "9");" WOOD": 1 "9");" IRON": 1 "8")=n(n,x): 1 "8");" CHIPING:";v$( 1 "7";u$(l(n, 1 "7";t$(rd)( 1 "7";c$(rd);"OFFER"; 1 "7";"`";rb;" PER TOURNAMENT"; 1 "7";"THE BOOKIES? (Y/N) ": 1 "7";"PLEASE WAIT": 1 "7";"PLAYING ROUND ";ap: 1 "7";"PAR"; 1 "7";"NEXT TOURNAMENT"; 1 "7";"M. MENU": 1 "7";"LOAD OLD GAME? Y/N" 1 "7";"FOR ";ra;" TOURNAMENTS": 1 "7";"FIXTURES"; 1 "7";"ETURN" 1 "7";"ENTRANCE FEE `"; 1 "7";"ENTRANCE FEE `";v(ac, 1 "7";"END OF SEASON ";sn+ 1 "7";"2. LOAN" 1 "7";"1. MORTGAGE HOUSE" 1 "7";" SPONSORSHIP ": 1 "7";" SELECT HOTEL ": 1 "7";" HOTELS AVAILABLE " 1 "7";" BANK `";za;" ";: 1 "7";" (P)RINT (C)ONTINUE " 1 "7"+re)=rd: 1 "7");t$(n);" ";e(n);" ";z$: 1 "7");"THE FINAL ROUNDS",,,,,"YOU MUST FINISH THE QUALIFYING ROUNDS IN THE TOP FIVE": 1 "7");"SCORECARD" 1 "7"));" PAY"; 1 "64");" ";z$;" ": 1 "6";i$(af ); 1 "6";"WEEKLY NEWS"; 1 "6";"PROFESSIONAL GOLFERS" 1 "6";"PRIZE MONEY `";z1; 1 "6";"PRIZE MONEY `";v(ac, 1 "6";"M. MENU" 1 "6";"IN SPONSORING YOU": 1 "6";"EXPENSES TO GO `";z2; 1 "6";"EXPENSES TO GO `";v(ac, 1 "6";"DRIVING:";v$( 1 "6";"BANK"; 1 "6";"5. PRACTICE ROUND"; 1 "6";"4. DRIVING"; 1 "6";"3. PUTTING"; 1 "6";"2. CHIPPING"; 1 "6";" PRIZE MONEY LEAGUE "; 1 "6";" PRACTICE "; 1 "6";" SAND WEDGE" 1 "6";" PUTTING WEDGE" 1 "6";" PUTTER" 1 "6"; " DO YOU WANT TO VISIT "; 1 "6");t$(n);" ";e(n);" `";z1: 1 "6");T$(n);" ";e(n);" `";z1: 1 "500")+(rc- 1 "5";i$(af); 1 "5";a$(ac, 1 "5";A$(AC, 1 "5";"UNDER PAR" 1 "5";"TOTAL PRIZE MONEY `";ze,,: 1 "5";"TOTAL PRIZE MONEY `";v(ac, 1 "5";"THIS WILL RETURN `";zf: 1 "5";"START SAVED GAME TAPE": 1 "5";"NOBODY IS INTERESTED IN"; 1 "5";"NO ONE IS INTERESTED"; 1 "5";"HOW MUCH CAPITAL DO YOU WANT?" 1 "5";" START ORIGINAL TAPE ": 1 "5")=j(n): 1 "5")-ra> w( 1 "5")-ra< w( 1 "4";"TOTAL PRIZE MONEY `";ze;: 1 "4";"TOTAL PRIZE MONEY `";v(ac, 1 "4";"ORECARD ": 1 "4";"LOW "; 1 "4";"BROKEN" 1 "4";"AST S"; 1 "4";"1. BUNKER SHOTS"; 1 "4",,,"PRIZE MONEY"; 1 "4"+(f(n)= 1 "4")="00": 1 "4");" PER TOURNAMENT": 1 "4"))*(j(n)> 1 "35")+(al= 1 "30");"-",: 1 "30");"-","HOTEL EXPENSES"; 1 "30");"-","ENTRY FEE"; 1 "30");"+","TRAVEL EXPENSES"; 1 "30")+(aw> 1 "3";i$(af) 1 "3";"YOU HAVE QUALIFIED FOR THE",,,,,,,"FINAL STAGES OF THE TOURNAMENT": 1 "3";"YOU HAVE FAILED TO QUALIFY",,,,," FOR THE FINAL STAGES BY ": 1 "3";"CONGRATULATIONS YOU HAVE",,,,,"BECOME THE NUMBER 1 GOLFER ": 1 "3";" ": 1 "3")=e(re)-an: 1 "3")=e(rd)-am: 1 "3");u$(n);: 1 "3");t$(n)( 1 "3");" POSITION AFTER ";ap;" ROUNDS ": 1 "26";"TOTAL" 1 "255"-o(a, 1 "255")+(a( 1 "25")+(rc> 1 "23";"`";s( 1 "23");"`";zp; 1 "23");"`";zo; 1 "23");"`";zn; 1 "23");"`";zm; 1 "23");"`";zl; 1 "23");"`";zf; 1 "23");"`";zd; 1 "23");"`";zc; 1 "23");"`";z2; 1 "23");"`";z1; 1 "20";" ";t$(n+ 1 "20"*(ra-s( 1 "20");"SEASON" 1 "20");"/1" 1 "20"))*(j(n)> 1 "2";t$(rd): 1 "2";"ROUND ";ap; 1 "2";"PRIZE MONEY"; 1 "2";"PAR"; 1 "2";"OVER PAR"; 1 "2";"M. MENU" 1 "2";"6. CONTINUE": 1 "2";"5. REPLACE CLUBS"; 1 "2";"4. HIRE PERMANENT COACH", 1 "2";"3. SACK COACH" 1 "2";"3. HIRE COACH `";w( 1 "2";"2. MINOR TOURNAMENT AT "; 1 "2";"2. HIRE PERMANENT CADDY", 1 "2";"1. SACK CADDY" 1 "2";"1. MAJOR "; 1 "2";"1. HIRE CADDY `";w( 1 "2";" BEST 20 TROPHIES "; 1 "2"+w(a1)- 1 "2"*(f(n)=au 1 "2");"2 HARD"; 1 "2");" PUTTING:";v$( 1 "2");" PER TOURNAMENT": 1 "2"));a$(l(n, 1 "19";" ";u$(n+ 1 "1830"+a1* 1 "18";" "; 1 "17"))+m$( 1 "17"))+e$( 1 "17"))+"."+" "+h$( 1 "168"-o(a, 1 "15";"YARDS"; 1 "13");"CLUBS",,,: 1 "12");"M MENU" 1 "12");"IN A PLAYOFF" 1 "11";"HOLE"; 1 "11");ra;" STROKE";: 1 "10000";"+" 1 "10000"-zl*s( 1 "10000"*(be= 1 "100"*(j(n)< 1 "100")*z3: 1 "100")*g(n)) 1 "100")*g(n) 1 "10";i$(af); 1 "10";"H RD TRN PR" 1 "10"+n);"+": 1 "10");" ";w(n+ 1 "10");" ";w(n);"/1";: 1 "10")-(ap- 1 "1";t$(rf);" ";e(rf);" ";: 1 "1";t$(rd)( 1 "1";a$(ac, 1 "1";"YOU WILL HAVE TO QUALIFY FOR"; 1 "1";"YOU HAVE FAILED IN YOUR QUEST",,,"TO BE THE NUMBER 1 GOLFER": 1 "1";"YOU HAVE BROKEN A CLUB" 1 "1";"TOURNAMENT"; 1 "1";"PAR FOR COURSE ";ax; 1 "1";"HOURS AVAILABLE ";ak;" ": 1 "1";"ENTER YOUR SURNAME (9 CHARS)": 1 "1";"ENTER YOUR FIRST INITIAL": 1 "1";"CURRENT LEADER"; 1 "1";". ";n;" STAR `";w(n+ 1 "1")=z$+". "+y$: 1 "1")=u$(n): 1 "1")=rc+c(n): 1 "1")=l(ra, 1 "1")=e(n)+ 1 "1")=au)-zp-a( 1 "1");u$(f(n));" `";k(f(n)); 1 "1");a$(ac, 1 "1");"1. BED & BREAKFAST `";w( 1 "1");"1 MEDIUM"; 1 "1");" ";a$( l(n, 1 "0";"YOU ARE BROKE AND HAVE BEEN FORCED TO "; 1 "0";"THIS WILL COST YOU ";z3;"% OF YOUR WINNINGS FOR THE NEXT ";z4;" TOURNAMENTS": 1 "0";"THE BANK WILL OFFER YOU `";z1,"INTEREST RATE .7% PER TOURNAMENT";"TO BE REPAID OVER 80 WEEKS","AT `";z2;" PER WEEK": 1 "0";"THE BANK WILL LOAN YOU `";z1,"INTEREST RATE .8% PER TOURNAMENT";"TO BE REPAID OVER 40 WEEKS","AT `"; 1 "0";"COST TO REPLACE IT `";ra: 1 "0";"BUNKER :";v$( 1 "0";" MINOR TOURNAMENT RESULT "; 1 "0";" MAJOR TOURNAMENT RESULT "; 1 "0";" (P)RINT (M)ENU " 1 "0";" (C)HANGE (M)ENU ": 1 "0";" ": 1 "0"+(f(n)= 1 "0");"0 EASY"; 1 "0")-zm*(s( 1 "0")+zf*(f( 1 G. NORMAN B. LANGER S. BALESTROST. NAKAJIMA A. BEAN R. TWAY C. STRANGE M. O'MEARA I. AOKI S. LYLE C. PEETE R. FLOYD L. WADKINS T. KITE R. DAVIS T. WATSON F. ZOELLER M. McNULTY C. STADLER J. NIKLAUS H. CLARK I. WOOSNAM G. MARSH S. HOCH L. MIZE B. CRENSHAW L. TREVINO S. TORRANCE N. FALDO N. PRICE G. BRAND L. NELSON F. COUPLES J. RIVERO M. JAMES P. AZINGER H. BIAOCCHI H. IRWIN K. BROWN 1 1 1 1 1